home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / i4.c < prev    next >
Encoding:
C/C++ Source or Header  |  2000-09-26  |  277 b   |  20 lines
  1. #include <exec/types.h>
  2.  
  3. APTR JanusBase;
  4.  
  5. VOID main()
  6. {
  7.  REGISTER UWORD i;
  8.  
  9.  JanusBase=OpenLibrary("janus.library",0L);
  10.  if(JanusBase!=NULL)
  11.   {
  12.    for(i=16;i<32;i++)
  13.      SendJanusInt(i);
  14.    SendJanusInt(4);
  15.    CloseLibrary(JanusBase);
  16.   }
  17.  else puts("No Janus-Library!");
  18. }
  19.  
  20.